home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / GoldED Tools / GoldDock / Install < prev    next >
Encoding:
Text File  |  1996-09-27  |  4.9 KB  |  179 lines
  1. ; $VER: GoldDock 1.0
  2.  
  3. (delopts "oknodelete" "force" "askuser")
  4. (complete 0)
  5.  
  6. ; This install script is public domain. Feel free to include it with
  7. ; your own API clients.
  8.  
  9. (if (exists "GoldED:" (NOREQ))
  10.  
  11.     (
  12.         (set vernum (getversion "golded:golded"))
  13.         (set ver (/ vernum 65536))
  14.         (set rev (- vernum (* ver 65536) ) )
  15.  
  16.         (if (< rev 987)
  17.  
  18.             (
  19.                 (message "\nSorry, GED 0.987 or better required")
  20.                 (exit (quiet))
  21.             )
  22.         )
  23.     
  24.  
  25.         (message (cat "\n"
  26.  
  27.             "                   GoldDock                    \n"
  28.             "                   ~~~~~~~~                    \n"
  29.             "               by Markus Aretz                 \n"
  30.             "                                               \n"
  31.             "       Internet: ma@ph-cip.uni-koeln.de        \n"
  32.             "                                               \n"
  33.             "                   GIFTWARE                    \n"
  34.         ))
  35.  
  36.         (welcome)
  37.  
  38.         (complete 10)
  39.  
  40.         ; ask where to install GoldDock
  41.         (set @target
  42.         (askdir
  43.            (prompt "Please select the directory where you would like to install"
  44.                    " GoldDock. ")
  45.            (help (cat "\n"
  46.  
  47.                 " Simply select a directory where you want to have  \n"
  48.                 " GoldDock installed. I prefer 'GoldED:API'. I'm    \n"
  49.                 " going to create a new directory coalled 'GoldDock' \n"
  50.                 " within the directory you specify.                 \n"
  51.                 "                                                   \n"
  52.                 " The GoldDock directory will keep the main program,\n"
  53.                 " several prefs-files and a subdirectory with icons.\n"
  54.            ))
  55.            (default "GoldED:API")
  56.            )
  57.         )
  58.  
  59.         (if (not (exists (tackon @target "GoldDock"))) (makedir (tackon @target "GoldDock")))
  60.  
  61.         (set @target (tackon @target "GoldDock"))
  62.  
  63.         (if (not (exists (tackon @target "Icons"))) (makedir (tackon @target "Icons")))
  64.  
  65.         (copyfiles
  66.             (source (pathonly @icon))
  67.             (dest   @target)
  68.             (pattern "(GoldDock|ReadMe)#?")
  69.             (infos)
  70.         )
  71.  
  72.  
  73.         ; what docks should be installed ?
  74.  
  75.         (copyfiles
  76.             
  77.             (prompt  "\n Select what GoldED docks do you want to have installed ? \n")
  78.  
  79.             (help @copyfiles-help)
  80.             (source  "DockPrefs")
  81.             (pattern "#?")
  82.             (dest    @target)
  83.             (confirm)
  84.         )
  85.  
  86.  
  87.         (complete 20)
  88.  
  89.         (copyfiles
  90.             
  91.             (prompt  "\n Select dock images to install \n")
  92.  
  93.             (help @copyfiles-help)
  94.             (source "Icons")
  95.             (pattern "#?")
  96.             (files)
  97.             (dest   (tackon @target "Icons"))
  98.             (confirm)
  99.         )
  100.  
  101.  
  102.         (complete 40)
  103.  
  104.         (copyfiles
  105.                 (prompt "Would you like to install the German AmigaGuide\n"
  106.                         "documentation for GoldDock ?")
  107.                 (help @copyfiles-help)
  108.                 (source "Anleitung")
  109.                 (dest @target)
  110.                 (infos)
  111.                 (confirm)
  112.         )
  113.         
  114.         (complete 50)
  115.         
  116.         (copyfiles
  117.             (prompt "Would you like to install the ARexx-Scripts ?"
  118.                     "They are necessary for full functionality of the docks.")
  119.             (help @copyfiles-help)
  120.             (source  "ARexx")
  121.             (pattern "#?.ged")
  122.             (dest    "GoldED:ARexx")
  123.             (confirm)
  124.         )
  125.  
  126.         (complete 60)
  127.  
  128.         (copyfiles
  129.             (prompt "Would you like to install some GoldED presets ?")
  130.             (help @copyfiles-help)
  131.             (source "Presets")
  132.             (pattern "#?")
  133.             (dest "sys:Prefs/Presets/GoldED")
  134.             (confirm)
  135.         )
  136.         (complete 70)
  137.  
  138.         (set @texsupport (askbool
  139.             (prompt "\n Would you like to install the PasTeX-related files?\n"
  140.                     "\n (dock icons, dock prefs, arexx-macros)\n")
  141.             (help @askoptions-help)
  142.             (default 1)))
  143.  
  144.         (if @texsupport) (
  145.             (copyfiles
  146.             
  147.                 (prompt  "\n Select dock images to install \n")
  148.  
  149.                 (help @copyfiles-help)
  150.                 (source "texsupport")
  151.                 (all)
  152.                 (dest   @target)
  153.             ))
  154.  
  155.  
  156.         (complete 100)
  157.  
  158.         (message (cat "\n"
  159.  
  160.             "API client installed. Please load the approriate   \n"
  161.             "api-file from within GoldED's API requester (<load>\n"
  162.             "gadget).                                        \n"
  163.             "The attribute 'Small' in the api-filename stands   \n"
  164.             "for a configuration which fits on an standard HIRES\n"
  165.             "screen. The attribute 'WithTeX' means BuiltIn-Docks\n"
  166.         ))
  167.     )
  168.     (
  169.         (message (cat "\n"
  170.  
  171.             "Please install GoldED before attempting to\n"
  172.             "install this client.                      \n"
  173.         ))
  174.     )
  175. )
  176.  
  177. (exit (quiet))
  178.  
  179.